object FrmAutoComplete: TFrmAutoComplete Left = 402 Top = 128 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Message Shortcuts and Auto-Complete' ClientHeight = 380 ClientWidth = 592 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] OldCreateOrder = False Position = poDefaultPosOnly Scaled = False OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 16 object GroupBox1: TElGroupBox Left = 8 Top = 10 Width = 576 Height = 54 AutoDisableChildren = False BorderSides = [ebsLeft, ebsRight, ebsTop, ebsBottom] Caption = ' Message Body Auto-Complete ' Flat = False FlatAlways = False ShowFocus = False TabOrder = 0 object cbEnable: TElCheckBox Left = 38 Top = 22 Width = 233 Height = 20 Cursor = crDefault Flat = True Caption = 'Enable auto-complete after pressing' TabOrder = 0 Color = clBtnFace ParentColor = False DoubleBuffered = False end object cbCharacter: TElComboBox Left = 312 Top = 20 Width = 103 Height = 24 Cursor = crIBeam UseCustomScrollBars = True NotifyUserChangeOnly = True BorderStyle = bsSingle BorderSides = [ebsLeft, ebsRight, ebsTop, ebsBottom] BtnArrowColor = clBlack AltBtnWidth = 21 AutoCompletion = False Items.Strings = ( '' '.' ',' '#' '*' '/' ';' #39 '\') ListSelectedColor = clHighlight AutoSelect = True TopMargin = 2 RightMargin = 5 LineBorderActiveColor = clBlack LineBorderInactiveColor = clBlack ParentColor = False ReadOnly = True TabOrder = 1 AltButtonShortcut = 0 ButtonShortcut = 0 Style = csDropDownList ItemHeight = 16 end end object GroupBox2: TElGroupBox Left = 8 Top = 76 Width = 576 Height = 249 AutoDisableChildren = False BorderSides = [ebsLeft, ebsRight, ebsTop, ebsBottom] Caption = ' Defined Auto-Complete Shortcuts ' Flat = False FlatAlways = False ShowFocus = False TabOrder = 1 object Label1: TLabel Left = 14 Top = 24 Width = 60 Height = 16 Caption = 'Shortcuts:' end object Label2: TLabel Left = 132 Top = 24 Width = 99 Height = 16 Caption = 'Loaded Shortcut:' end object LblText: TLabel Left = 132 Top = 50 Width = 239 Height = 16 Caption = 'Typing "" will instead insert following text:' end object lbShortcuts: TElAdvancedListBox Left = 14 Top = 44 Width = 101 Height = 169 ItemHeight = 16 TabOrder = 0 OnClick = lbShortcutsClick SelectedFont.Charset = DEFAULT_CHARSET SelectedFont.Color = clHighlightText SelectedFont.Height = -13 SelectedFont.Name = 'Arial' SelectedFont.Style = [] HorizontalScroll = False end object EditShortcut: TElAdvancedEdit Left = 260 Top = 20 Width = 129 Height = 24 TabOrder = 1 end object MemoText: TElAdvancedMemo Left = 130 Top = 68 Width = 435 Height = 171 TabOrder = 3 end object BtnSave: TButton Left = 403 Top = 21 Width = 92 Height = 23 Caption = '&Save' TabOrder = 2 OnClick = BtnSaveClick end object BtnDelete: TButton Left = 14 Top = 217 Width = 101 Height = 23 Caption = '&Delete' TabOrder = 4 OnClick = BtnDeleteClick end end object BtnClose: TButton Left = 480 Top = 337 Width = 100 Height = 30 Cancel = True Caption = 'Close' Default = True TabOrder = 2 OnClick = BtnCloseClick end end